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Agm 


Thie Ie Just some brief notes on the first AGM of the BEC Microcomputer Users 
Group of NZ held last month. It is not the minutes. There were 35 adults 
attending the AGH, plus several younger members who preferred to enjoy the 
yenes software provided on several machines around the room. 


the President’s report covered a brief history of the Users Group since the 
fired meeling early in December 1982, and how much ground had been covered 
ainee then. Ouring the Treasurer’s report, a member from the ‘audience’ 
noted (hal we were only ¢dinancial because we had stock of tapes & magazines. 


CINGT I CUT Me 
A dread uf the praposed Constitution had been sent to the Registrar of 


Incorporated Goctetios seeking theif comments on it. Members felt that when 
there eeapanse had been reteltved, and alterations made, the Constitution should 
then be circulated fo all members for thelr comments (with a deadline!) 

tedore preparing the final version. 

there wae eome Uiscuesion on Membership fees - the opinion voiced by some was 
thet perhans we were setiing them too low! However, cheaper postal rates for 
the magazine are being investigated, which should Increase the amount available 


for other member services. 


One of the Weltington retailers was prepared to be particularly helpful in 
various wayd, Inciuding standing on the Committee. However, if we are to 
maintain our image of independence, the National body cannot be seen to be toa 


close to any retailer. 


WELLINGTON BRANCH: 

A brief meeting after the national AGM set up a small band of people willing to 
help organise monthly meetings in Weltington, and also set a levy of $5.68 

over and above the National membership, to cover room hire, supper etc. 


FUNCT u i SRARY 


Jeff Cin Alexandra) has found the ability to call a PROCedure directly, in 
immediate mode useful for debugging etc., when the DEF PROC is within a listing. 
For example, enter this fisting: 


be pe PROCdi agonal (At, X% YX) 168 DEF PROCover | ay(As,x%,Y%) 

20 cus 119 VOU22,5,5 

30 axel TO LENCAS) 128 MOVE X%,Y%:GCOL@,2:PRINTAS 
PRINTTAB(X% ,Y~MIDS(AS,AX%,1) 138 MOVE X%+4,Y%+4:GCOLQ_1=sPRINTAS 

SQ X%aKKe lr YvayveL 1468 YDUa 

68 NEXT 158 ENDPROC 

78 ENDPROC 


Now enter PROCdiagonal<"Whodunnit?",5,5) and the text will be printed 
dtagonally across and down the screen. Change line 46 ta; 
48 YA = YAtl and it wild be printed vertically. 


PROCoverlay is a vittle trick for overlaying text to give a 3-D effect, 
So. enter PROCoverlay< "GUESS who!",186,58@> 
NOTES: 1. PROCover lay prints text in graphics mode which allows the Qreater 
: bay er Pe placing the characters on the screen than PRINT TAB. 
‘ ee previous articles on YOUZ2 - if you have any problems, 
MODE 5 <¢RETURN) before calling these PROCs. aoe 


MINI TEXT EDITOR VERSION I1I+ 


David GRAHAM 


Reproduced with the Kind permission of BEEBUG magazine 

Gur thanks are Given to tne Editors of Beebug magazine for nermieston te 
reproduce this program ana article in our newsletter. Ther have also supoi:ec 
us with some enhancements beyond those printed in their November 1982 igeue. 

We have incorporated thet :n the program, and renumbered ae it 's degianec tor 
& 3Zk machine, but by changing the Mode in lines 259618 and 25256 to Mode 7 :¢ 


will wark in a 16K machine, 


This ts a minute wordprocessor substitute. It uses tne Beeb’s own Basic text 
editing facilities to create and edit fites of text. These are enterec as fines 
Of Basic using the AUTO command, and may be easily saved, icaded, edited and 
printed out. The program does not aliow right-justification or closing up of 
text, SO Inserting words sould cause a tine to overfiow - in which case the 
neatest thing to do may be to retype the paragraph. 


The function Keys are used extensively in this editor. and a card with their 

definitions should be used. Type CHAIN" to load the proaram, foliowec fy Key 
fior #2, Either key wi'l initiate the AUTO mode for text entry, out #2 weil 
Qive your address as a fetter head ‘In the fisting given, BEEGUG‘’< acdrecs /2 
used ~ substitute vour on at lines 1618,162@ etc.3. Alternatively, graeseing 4, 


will erase the addrees ¢ram the machine. 


Ther stmoly type in the text you require, using #9 when you reach the end oe a 
line. If you go over the end of a line. use the ‘delete’ Kev to reduce the i:ne 
tenoth, 4s the keys stand, #6 will tab alona 6 soaces. and 13 tabs to the bak 
stde for entering addresses. Key #3 is untrogrammed, and may Oe proarammea with 
a word or short sentence that you use often. 


When you have finished entering text. press Escape, then use the LIST command, 
and editing Keys. Frece:ng £7 will return Mode 7 for oetter vitibility. ‘au 
can return to Mode 3 wits 48, which just executes RUN. To return to entering 
text after you have escazed from the line numbering mode. vou muet tyroe in 
AUTOx where x is greater than the number of the last Bacic itne that hoids 
previougsly-entered text. For this reasen, it is easier te correct migtaxes at 
the end rather than as vou go along. 


To save the text created. use the SAVE*name* command, and save and toad as a 
normal program. This means that each text fiie saved, convenientiy fas a copy 


of the editor with it. 


Two modes of printout are available. #5 qives a printout with Basic Tine 
numbers, for ease of subsequent editing: whrie #4 calis a routine which ignores 
the line numbers. A number of possible options are available with this form of 
printout, and those chosen will depend on the paper feed mechanism of your 
printer, and the number of lines required. As the orogram stands, it wiil eend 
(a form feed character every 31 lines of text (check your manual ta see whether 
your printer responds te this). This may be useful if you are orinting couble- 
spaced text (achieved by typing #FX6.8 - assuming that this command has not 
already been used), 14 vou require a different number of lines printed before 4 
form feed, alter line 2543@ of the program, changing the value from 31 to that 
you require. 14 you do not want the form feed at all, delete line 25438. if 


4 


you want the program to stop after say. 58 lines of text have been printed, $0 
you can insert another sheet of paper, alter line 259438 to read: 

IF L4%>56 THEN wai t=GET:L4=6 
Pressing any Key will cause another page to be orinted. 


To increase the spacing between lines, alter line 25418 IF 2K=13 VDU1 18 
This may be extended to VDOUL.16,1,18 or VDU1.18,1,16,1,18 etc to increase the 
spacing further. Each *1,.1@*" in the YOU command adds an extra line feed after 
each Tine of text. | 

Note that as the program stands, it can give tripie spacing on some printers, 
(#g the C.ITOH). To cancel these, delete lines 25416 AND 25446. This returns 
you to single spacing for those printers. | iOS 


Incidentally. when you select printout without Tine numbers using #4, you are 
asked to enter a continuation line number. This is just to allow you to start 
printout at any line of a page. As the prooram is here, if you enter 29 here, 
the program will orint out 2 lines of text before doing a form feed. For the 
benefit of printers using @ continuous toii c+ paoer Cand for spacing down the 
letter head), orintout is orefaced with a number of blank lines. These may be 
removed by deleting lines 958 to 798. At the end of the printout the ecreen 
will display a word count and a lines in fast page count. 


THE ASTERISKS: the original program could not accept Basic reserved words as 
text without corrupting them. eg P.G.8ox would aopear om numbered orintout as 
PRINTOLDBox or worse on unnumbered printout. As the Keys are defineg. each line 
begins with an asterisk. The BASIC tokenising routine then considers thie to be 
a MOS command and switches off the tokenitsina routine. 14 vou press RETURN 
instead of #7, enter x * at the start of the new Jine. 


tf you are using the serial interface <RS423) for your printer. you wili need ts 
customise your program in this way: First of ai] change iine 2 to read 

serial = TRUE . This sets the grooram for cerial output at 1286 baua. If your 
orinter requires a different baud rate, repiace tine S with the appropriate 
command: 


*eFX8, 1 73 baud #FKB.5 860-2488 baud 
¥FXB.2 158 baud #FXB.6 4880 baud 
*FX8,3 388 baud #FX8.7 9668 baud) 
#FX8.4 1288 baud SFX8,.8 19208 baud 


Al} printers behave in different ways, and word processors costing £58-plus 
are or can be, customised for a given printer. This is obviausiy not oossionie 
in this case. Although we have tried to erovide for a number of different 
printer configurations. we cannot cover them all. and would urae you to 
experiment with the program to achieve the results vou requite. 


NOTE : 
1¢ you are modifying the program, leave lines 1-18 exactly intact in order to 


retain the correct functioning of the printout routine. 


Adding 25485 VDU2.1.12.3 will give a farm feed at the end of your text on an 
Epson printer. 


14 you use this editor on a disc~based system. alter line 25278 N“=PAGE+! | 
This change only affects the printout without line numbers routine. and does not 
aiter its correct operation on a cassette-based system. 


{ REM MINI TEXT EDITOR 
2 serial=FALSE 
3 IF NOT serial THEN 9? 
4 *#FX5,2 
3S *FX8,4 
§ GOTO259868 
18 
956 
948 
978 
938 
996 
i@18 * 
1628 * 
1636 % 
1646 # 
25808 REM KEY SET ROUTINE 
25618 MODES 
25626 *KEY@RUNIM 


BEESUG , 

P.G.B0x% Sé, 
St Albans, 

Herts, 


25636 ¥KEYIDELETE1 G08 1190 :MALUTG! 006,16 .%* 


Z5G4G *KEY2i 1686, 1899 MaUTOI1Ga Me 
25856 *KEY4G0TOH25246 | f4 


25048 #KEYSVDUSIMLIST£G8. 16698 MVDUS IM" 


25678 *KEY6" 

25888 aKEY 7 "HO.? om" 

25098 #KEY & ” 

2E1ag *KEV Me 

25918 PROCWINDOW 

25126 END 

23136 DEF PROCWINDOy 

25146 S$="] ‘ 

25158 PRINTTABC 8 , 233535$5$5658535$"1 


25168 YDU28.@,22,79.4 

25176 PRINTTAB(@,15):"B EE BUS M 
int Text Editor? 

25186 PRINT"(printout routine by Lan 
Sinclair ss" 

25198 PRINTTAB(C6G, 22): 

24288 PRINT*PRESS KEY Fi OR F? TQ ST 
ART <F2 PRINTS ADDRESS>" 

25218 PRINT’*OR F4 OR FS FOR PRINTOU 

TF 

23228 PRINT’ ’ 7? 

25238 ENDPROC . 

25248 REM PRINTOUT WITHOUT NUMBERS 

25258 MODES :PRINT* ‘< 

25268 PRINTTAB(2)"Please choose cont 
invation or new print- type line num 

ber or zero.*;; INPUT AS :LA=VAL (AS) rh 

4G | 

25278 NA=3585 

25286 VDU 2 

25296 REPEAT © 

25388 9 N%=NK+2(NK42) 

25318 UNTIL ?(N%4419=18 

25328 JAxNZ+2 


25336 REPEAT 


25348 LY=LA+4 
25358 FORM/=1T06 

25366 PRINTCHRS(1)" 53 

25378 NEXT 

25388 FOR K/= J4+2 TO N“+7IL-1 
25398 PRINTCHRS (1) CHRS(?KZ) ; 
25486 IF ?K4=32 AND NOT (2(KK-1) 
232) WW l 

25418 IF ?K4%=19 VOU 1,16 

25428 NEXT 

25438 IF L%)=31 THEN PRINTCHRSCI)C 
HRSC12) :L4%=0 

25448  PRINTCHRS$(1)CHRS(13) 

25458 9 NUBNA+?J%s SAN 2 

25468 UNTIL 2(N%+3)=244 

25478 VDU 3 


25488 PRINT* Lines of last page- “j3L 
4‘**Word total- “WA 
25498 END 


“CHAINS” ~— a must for Model A’s 


e223 R GH. ete: 


Have you been enthused to write a real memory gobbler as a novice. on the Model 
A? After 2 hours of PLOT85.X,Y I1 plotted and filled triangles ali over the 
screen, constructing a “maize" for wee “Munchers” to scream around, 

Whoopee, it’s all in there, and when run, the maze appears in 3 seconds ~ 
obviously the work of a novice! (Gh yeah?Ed.) 


Now Tet’s merge those munchers from another game with a littie modification to 
stop them travelling through walls (IF POINTCX,¥)= colour_of_wall THEN stay). 
It’s all in there, Tets RUN. Orat. No room '! There is not enough memory 
remaining to use Mode 4 and al} the well-chosen variable names, instead of 
unintelligible system integer variables. 1 become frantic again about an 
uparade to the Model B just to save 28 cents a game! 


The. WELCOME TAPE ! 

I distinctly remember that "Biorhythms” makes you wait for a second part. | 
CHAIN, of course !' Now I will] have to spiit up the program again. 1 could 
have saved the effort in merging if 1] had Eureka’d earlier about CHAIN. 


STEPS INVOLVED: 
1) Save to cassette the total program which will not run, due to insufficient 
memory. 
2) With the program <¢tit? in memory, decide how vou wiil subdivide it into 
smaller programs which will load and run themselves and the next ones. 
My maze program is divided in to 3 smailer programs: 
Maze.A selects the graphics made, 
defines the graphics shapes, 
sets up the constants/start values of variables “position of 
munchers) 
CHAINS Maze_8. 
Maze_B Plots the maze onto the screen, 
CHAINS Maze_C. 
Maze_C Moves the munchers around the screen, 
-scores and displays the Gametime, 
ends the program. 


Maze_B has since been expanded to use most of the available memory ‘isn’t 
that always the way when there is plenty to spare”), 

3) DELETE the Tine numbers vou will not require for vour first program. 
Remember, you stil! have the original too-long program on tape several 
times. Substitute the closing line of vour proqram, which shouid be “END* 
with CHAIN “next part-program". 

4) SAVE this new program “A" at the start of a fresh tape. Don*t rewind 
after verifyina, so you Know where on the tape to put the next instaiment. 

 Preterably do this on at Teast two tapes. 

5) ReLGAD your original program, and repeat the deletion process in step 3 
to obtain another smaller programs Terminate it with CHAIN" 3rd pants 
i¢ there is more to come, 

6) SAVE this gart 2 a few seconds after program"A" on the tape(s). 

You can continue in this way, subdividing to eternity, until your tape 
starts to look like this: 


7 





Ast line | | | 
of program{ REM Maze_A REM Maze_B REM Maze_C | 
END with: END 


A TRAP & POSSIBLE SOLUTIONS: 

When using CHAIN, the title of the oroqram and block numbers apoear on the 

screen as with LOAD. I you have your impressive qgrashics iaid across the 

screen, this is not appreciated by the Beeb, which allows these characters to 
chomp their way through the graphics (in my case, the Maze has noles in ai! the 
wrong places for Munchers to escape through.). 

Two possible solutions: 

1.) Disable the screen with VOU 21 immediately after the graphics have been 
plotted. Enable it again with VOU 6 just as the game is about to commence. 
(Using #OPT!,8 has this effect too. Ed.) 

2.) Use separate text and graphics windows so that the title and block numoers 
are always separate from your fancy display. <Page 55 of the Users Guide 
covers this fully.) 
in Maze, my text window holds only 2. lines. which. when running the game. 
contains the Game Time, Score, and of course. "Escape" 1: you are naving 
a rotten time. . 


Solution 1 has its: drawbacks. lf anything qoes amiss during the loading +rom 
cassette, there is no message visible to alert you ~ you are wel] anc truly 1h 
the dark /! 


So, Model A owners, don’t tet those Mode? 8s show off their new ehasnaie 

_memory-gobbling graphics that have "real"mountain ranges. complete with 
tourist resorts of hotels, swimming pools etc - just you show them there’s 

more to being “chained” to a BBC than they ever dreamed of E 


JIA 


FOR THE EDITOR 
Has anyone already got some routines for right-justifying of text, or for 
proportional spacing? As you can see, the newsletter would look much better if 
we could do this. Alas, preparing the newsletter takes up so much time, that 
we have not got around to doing this ourselves. 


TQ THE EDITOR 
A letter was received in a recent fiery qust, from a non-member, which was 
rather insulting about the dragon on last month’s cover. After removing the 
inflammatory passages, the essence was that the dr-agon bad too many sides, and 
that no self-respecting dragon had more than two - sly-cunning, and greedy- 
nasty. It was signed by Smaug the Golden. 


BY THE EDITOR 
See p.23.. 


sy © N 
J.M.H. 


While experimenting with my micro’s capabilities for sound production, J] ran 
into a problem with the Chord Synchronisation feature. This is a mechanism 

for ensuring that sounds on different channels start simultaneously, regardless 
of the earlier expiry of preceding sounds in the queues for some of the 


channels 


The oarticular case J] was working with involved alternately synchronising two 
and three channels, with some non-synchronised sounds as well. I found that the 
program would quickly flock up, refusing to progress at all, and it could oniy 

be freed by ESCAPE. Some experiments showed that the system was getting 
confused as to how many channels had to be synchronised at a time. This 
resulted in the wrong sounds being synchronised, as sounds that should have been 
executed were being held for a channel that should not have been involved. 


- €ventwaily a channel queue became full of sounds waiting for synchronised 


entries that the erogram had not made; and this caused the lockup. 


The particular way I was trying to work, when any two channels were being 
used, the third. whichever one it was, was expected to be silent. The 
compromise I reached was to piace a very quiet sound on this channel, and 
making all the synchronised sounds to be three-channel. If this is not a 
satisfactory solution for some cases, then I] a et using the synchronising 
facility to a minimum, and rely instead, on the timing of soungs for 
simultaneous production of them. 


TOWERS OF 
T.B 


The Towers of Hano!: !§& an ancient game credited to the Chinese. It’s unproved 
origins have been dated to the Hsia dynasty <BC18@6-1586). Gne emoeror of the 
Ch’in dynasty is said to have challenged visitors to his court to solve the 
problem - then beheaded those who failed. 


The traditional puzzie consists of a series of disks with holes in the centre 
so that they may be placed on any of three peas. Each disk is of different 
diameter, so when stacked in order of size, form a cone shape. 


The object of the puzzle is to move the disks one by ane to transfer them ai] 
to a different pin from the one they started on. There is a rule that a disk 
may not have a larger one placed on top of it. This Beeb version has only six 


disks to manoeuvre. 


There are a number of obvious enhancements to the version listed below: 


i. Use the graphics capability of the Beeb to display the disks 
as solid disks, with different colours. 

2. Show the disks actually moving from one pin to another. 

3. Add appropriate sound effects. 

4. Increase the number of disks. 


When vou tire of this version, send in your NEW AND IMPROVED version ! 


198 
26 
3@ 
46 
re) 
68 
7@ 
a@ 
7@ 
186 
116 
126 


138 | 


i4a 
i156 
168 
176 
186 
i968 
260 
218 
228 
230 
240 
250 
2668 
276 


HANOI" 


286 
276 
366 
318 
326 
338 
348 
NOI" 
358 


ie ame 


REM “THE TOWERS OF HANOI" 


DIM L1$¢1@)> 
DIM L2#¢(1@> 
DIM T¢6,3) 
MODE S:PROCtitie_t1 
MODE 4:PROCinstruct_2 
VDU 2335202:8:0 54: 
REPEAT 
PROCstart_3 
PROCse tup_4 
REPEAT 
MODE 4:PROCdisplay—7i 
REPEAT PROCenter_51 
UNTIL E=@ 
REPEAT PROCenter_—SZ 
UNTIL E=6 
PROCmovews 
UNTIL ES="*y" 
PROCend..game..6 
UNTIL AS="N"® GR AS="n* 
MODE 5:PROCend_run_y 
END 


OR Et="y" 


DEF PROCtitie_! 
VDU 23:8262:6:6:8: 
PRINT TABCG.12) "THE TOWERS OF 


PRINT TABCG.24) “ . 7 
TIME=6:REPEAT: UNTIL TIME=158 
ENDPROC 


DEF PROCinetruct_2 
VDU 23:8202:0:0:@: 


PRINT * TOWERS OF HA 


PRINT *" 


PRINT " THE TOWERS GF HAND 


I IS AN* 


376 


FRINT * ANCIENT PUZZLE WHOSE O 


RIGINS ARE “ 


388 
370 


LOST IN TIME.*’ 
THE OBJECT IS TOT 


PRINT *° 
PRINT “ 


RANSFER ALL" 


40@ PRINT “ THE DISKS FROM THE LEF 
T HAND PIN" 
416 PRINT * TO THE RIGHT HAND PIN. 
JUST TO* 
428 PRINT " MAKE IT INTERESTING TH 
ERE ARE A" 
438 PRINT “ FEW RULES:-*’ 
446 PRINT * 1. ONLY ONE DISK MAY 
BE MOVED" 
456 PRINT “ AT A TIME"? 


> 


2. YOU MAY NEVER PLAT 


466 PRINT* 
E A LARGER” 

4780 PRINT * DISK ON & SMALLER 
ONE." 

486 PRINT ” 3. DISKS MUST END LIP 
ON RIGHT” 

47@ PRINT ” HAND PIN NOT THE 
CENTRE ONE* 

566 PRINT THE PINS ARE NUMBE 
RED 1-3 LEFT? 

5168 PRINT " TO RIGHT, THE CISKS AR 
E NUMBERED" 

526 PRINT “ 8Y THE NUMBER OF * S & 
HOWN. THE" 

53@ PRINT " LARGEST DISK IS Always 
boa 

546 PRINT TABCiS)> “GCOD LUCK!" 

SS5@ PRINT TABCIS! "reer non nn * 

366 PRINT * PRESS ‘RETURN T 
G START” 


5376 2%=GETS 

38@ ENDFROC 

S96 

486 DEF PROCstart_3 
61@ CLS: E=4:oe-8 
626 FOR P=1 TO 


636 FOR N=i TO 3 

546 TOD.ND=@ 

656 NEXT 

656 NEXT 

676 REPEAT 

686 PRINT TABCS,12) "HOV! MANY DIS 


KS (MAXIMLAL 4) 7" 
578 5$=GETS : S=“VALC SS) 
796 E=6 
718 IF S41 OR $?S5 E=1:PROCerrors. 

16 
726 
738 
746 
738 
768 
776 
7880 
778 
89e 
819 
826 
836 
846 
85a 
868 DEF PROCenter_3! 
878 PRINTTAB(8,16) “PLEASE ENTER TH 

E NUMBER" ; 


UNTIL E=@ 
FOR F = 1T6 5S 

SM = € 28S +l 

NEXT F 
ENDPROC 


DEF PROCse tup_4 
Y=6:D=13:AG="Y" :ES="N" 
FOR X=1 TO S 

TCY .1>=D:0=D-2 

Y=Y~1!I 

NEXT 
ENDPROC 


@8@. PRINT TABC6,18) 


ig 


“OF THE DISK YO 


U WISH TO MOVE"; 
876 OS=GETS : O=VAL( DS) 


780 


is 
926 
38 
946 
5e 
766 
oc 
778 
HER 
938 
9YB 
14a6 
= 
1416 
1926 
1436 
1846 
1858 


IF D=i THEN D$=GET$:0=18+VAL (DS 


=2:6=13 

FOR F 17706 
IF BD = G THEN 
Ge* G- 2 
NEXT F 

IF E=2 THEN PROCerrors_i@:ENDPR 


E=¢ 


REM CHECK IF DISC 18 BELOW ANOT 


FOR R=i TO 6 
FOR C=1 TO 3 
IF TOR, Co=0 Cx=CrRAER Ss R=420 


HEXT ¢ 
NEXT RF 
CHC R=RA 
FOR G=1 TO R STEP |} 
TF TéG.C3¢D ANG ThG.C3>@ THEN 


€=3:PROCerrorswi@ 


1456 
1476 
{ace 
14%e 
{146 
1118 
1128 
idHICH 
1136 
1146 


NEXT 
ENDPROC 


DEF FRUCenter_32 
REF EAT 

E= 

PRIMTTABC AR. Z87"°FPLACE DISC ON 
Pitt?" 

NE=GETS sN=eVALt NS > 

IF N<l OR NOS THEN E=4:PRO0Cer 


rors.ié 


1156 
1146 
1176 
NE 

Lise 
Lise 


1286. 


N E=5 
izig 
1226 
1238 
1246 
i258 
1268 
1278 
1288 


1298 


3 


UNTIL E=a 


REM CHECK IF G13C 13 GN LARGER 
E=4 
FOR R=1 TO $ 


TF TER.ND CB GND TOR,ND<D THE 


:PROCerrors_i@ 


NEXT 
ENDPROC 


DEF. PROCmove_6 
E=@ 
REM MOVE DISC 
FOR V=t TO 6 
FOR W=1 TO 3 
IF TCV, W)=D WU Wield se? 


i 


1326 


NEXT W 
NEXT V 
REM LOCATE SPACE ON PIN 
Wey rW=W% 
T48,B9=TCU WD 
TCV WW) 28 
FOR U=1 TO 6 
TF TCOUND 626 U4ZSUINM=N U6 TK 


1380 
1316 


1336 
1346 
1356 
1346 
1370 


al 


NEXT U 


{386 , 
REM MOVE DISC & SET OLD LOCATIO 


1376 


N TO 6 


aa 


arve2 


NGRATULATIONS!? *: TABCS, > 
DO IN *eM3" MOVES" 
MOVES FOR “;S:°" 


1638 


146@ IF Tx=i THEN T4368: USU% SN=ENM 

141@ Ueu-1 

14286 TCU .N?=TC@8 6) 

143@ M=M+1 

1446 IF M7128 THEN E=4:PROCerrore is 
ENDPROC 

1450 ESS") 

iGso FOR F=1 TO 6 

{474 FOR C=} Ta 2 

1498 TF Ter, Co <0 Cee: k= 
146 NEXT 

{366 NEXT 

{SiG EMOPROC 

iS2a 
{536 
{S46 
1 3S@ 
i 56a 
1576 
1586 
i See 


6: ES="N" 


CEF. PROCdi«p) 
VDL 2358282: ai 
CLO:PRINT. *- 
FOR K=} TO 6 
226 
FORJ=1 TO 
IF Tek, 23 ¢3@ 
ELSE PRINT TAB? 
e=mZ+i3 
NEXT J 
NEXT K 
ENMDPROC 


a 4 
me 
* 
* 


yl 
228: 


THEN PROCdi sol 
ran iad ae 

1400 
1618 
1420 


1440 
1650 
1566 
1678 
1 686 
1678 
1709 
1710 
1728 
1738 
1748 
1758 
1768 


DEF PROCdisplay.?2 

PRINT TABS Z-INTOTORK Joe ei: 

ips} 

REPEAT 
PRINT 
ijl i+ { 
UNTIL (Tek. do41 

ENDPROC 


‘tH gt. 
ens 


DEF FROCend games 

CLS 

IF E=@ THEN FRINT TABCTI.5) 
“YOu 
rTABL 4,115 
DISKS 


gua 
FINISHE 
"MINIMUM 
IS "35M 


1778 PRINT TABCS,7) “YOU FINISHED IN 
"sM:" MOVES" . 


1768 


FOR *:S:" 


i7%e 
1 See 


PRINT TAB(4,11) "MINIMUM MOVES 
DISKS IS ";SM 
REPEAT 


PRINT TABC4,18)> "DO YOU WANT 


TO TRY AGAIN CY/N)>?" 


{81¢6 E=6 :AS=GETS 

1828 IF AS< >" Y" AND ASS>SY” AND AS 
<>"N" BND ABS" THEN E=7:PROCerrors 
it 

1836 UNTIL Ex@ 

{340 M=6 

{85¢@ ENDPROC . 

1366 

18780 DEF PROCend_run_? 

{S680 PRINT TABI46,12) “THANK You" 

18°68 PRINT TABCS.1453 "FOR PLAYING” 

{7886 FPRINT TARC 7.183) “GOODBYE® 

1914 ENDPROC 

1726 

iv36 DEF PROCerrors_ié 

{F4e Lis¢{>=" NUMBER OF DISKS MUST 
SE B 

IyS56@ LeS¢cj>=* BETWEEN 1 AND 6*“ 

{7466 LIS¢2)="" DISK NUMBER MUST BE & 
VALIO * 

i9?7e@ L2é¢c2>=" NUMBER AS PER INSTRUCT 
TONS” 

{PR Li€¢Ss="THAT DISK IS BELOH ANDOT 
HER ONE” 

17S86 Lobe ga” 

246GG Lit¢4>=” PIN NUMBER MUST 6& 
E Bs 

2418 LES 4 y=" BETWEEN 1 AND 3* 
2426 LIt¢So="DISK MAY ONLY BE PLACED 

ON TOR" 

2430 L2éch>=" OF 4 LARGER ONE® 

26496 LIiSe sis" SGRRY TOO MANY MOV 
ES a 

2658 LEBi Sa" 

2066 LIS¢7)=" YOU MUST ANSWER ¥ O 
rR Nh H 7 

2678 L2e¢7)="" 

2BSH PRINT TABCS . 24) * RRR HERR HEEREHESE 


RHR ERBEHKRE BHM He" 


2O°R 


21@6 PRINT TABCS, 263 


211@ 


PRINT TSBL5.25) Listed 
L28¢E> 
PRINT TABS S, 27)" RR HHE EHH HH RARER 


KLERKKERKRHBRKREE" 


2128 PRINT TAB(S, 29)" 
CONT INUE" 


° Th 


PRESS “RETURN 


2138 ¢2@$=GETS 
zi4d@ L¢=" 


2158 


ii 


PRINT TABCS.24) Ls 
PRINT TABCSOLS 
PRINT TABCSILS 
PRINT TABCSILS 
PRINT TABCS,27) LE 
ENDPROC 


216@ 
2179 
2138 
2198 
2206 


BadAYT SHBSEATA sear 





WHITCOULLS DEALERS: 
Here is a list of branches of Whitcoul)s 
that are expected to be selling the BBC. 
Auckland: Queen St 
Sunnybrae Rd 

Hamil ton 
Tauranga 
Rotorua 
Gisborne 
Napier 
Wanganui 
New Plymouth 
Palmerston North 
Wellington: Lambton Quay 
Blenhein 
Christchurch: Cashel St 

Peterborough St 
Ashbur ton 
Dunedin: Princes St 
Invercargill]: Dee St 


iz 


In February, we published a routine to load two sets of definitions of these 
Keys, and be able to swap between the two sets. The User Guide does not cover 
their use in great detaii, nor does it list the error messages you can receive 
when trying to define these Keys ' As well, it does not make it obvious that 
only 256 bytes are allotted to the definitions. The suggestion of using double 
quotes is aiso confusing. Therefore, here are a few suggestions and comments 
to answer your queries. . 


ERROR MESSAGES: 
Bad Key . 
The Key definitions are allotted a limited space in memory. Consequentiy, when 
you have used up these 256 bytes, vou can oniy redefine keys by undefining some 
ethers to qive you the memory space required. By tne time vou have defined 
some of your Keys with the most frequent commands - LIST. RUN, LGAD etc. if 
you want to-start experimenting with ENVelopes say, you are iikeiy to have space 
left for only three envelopes before you get that unmentionabie error mecsage, 
Bad Key. If vou realiy want to experiment with lone strings in these Keys, vou 
witli have to think seriously about aoing something i:ke Alasdair suaqgested in 
February, 


Key in use | 

This has occurred occasionally when trying to redefine a key. Again, it seems 
related to the amount of memory aiready used, espec:alliy it vou have been 
redefining Keys a lot. “This is more iikeiy to happen tn estadlishments where 
the comouter gets so much use night and day. that no-one bothers to switch it 
offi) Tominimise this. undefine, or ciear, a Key psefore vou redefine it. 

The other thing to do is undefine every key and star? again. 


DOUBLE QUOTES or CONTROL ? 
You cannot have a definition beginning with either aoubie quotes or a comma. 
The computer will erther teil you you have a Gad Ker, or iqnore the aucte or 
comma, but produce the rest of the line. This is where the User Guide's 
suggestion of putting a definition in double quotes ¢" 7") ts useful. 
An examole of this was in the January newsletter. p.i?, where to aet a key 
defined to produce ,& on demand was enciosed in quotes. Even worse is the case 
of the quotes themselves - the ma:nstay of this newsietter production :s a key 
defined to put in the closing quotes of a line, do a carriage return iwhich 
automatically gives the next line number). and start the new line with PRINT’. 
To do this required 3 sets of quotes at each end ! 
Since those early days, the use af the broken line ‘control) (1) has eased this 
in: that. instead of counting quote marks, you need onty put the control character 
at the beginning of the definition. i,& gives a .& when pressed. which is used a 
lot in setting up character definitions or data in hex. #KEY2i"IMP." gives 
the required definition instead of *#KEY2"""iMP.""" .cAnd to put this in a 
PRINT statement requires 6 sets of quotes at each end to come out right 1). 
OTHER CONTROLS 
‘U clears the line you are on. Normally if you have a key defined to LIST, and 
press it in the middle of a line, you will get ‘Mistake’. If you start the LIST 
definition with a !U that will clear the nine and start the definition at the 
beginning of that same jJine. 
Alternatively, you may prefer to start vour definition with a iM or carriage 
return ~ this will start your definition on the next line instead. 


Pan 


iN puts you in paging mode so you can step through listings a screenful at 4 
time, using SHIFT Key to pass on to the next page. To stop and egit on a oage, 
you need to Escape. Note that you are still in paging mode ' If you do not 

do a Control 0 Cie oress these keys simultaneousiy)? at some stage, you witli find 
the computer hanas up in the most awkward places:- if you return to writing a 
program using AUTO, periodicaliy you wil! have to press Shift to get the rect of 
the line you have entered ‘usually happens as you reach the end of one ‘ine and 
press Return - to find a little red light under your hand'>), Tne other oonuiar 
place for the computer to aet unset about being ieft in paging mode is when 

you try to SAVE or #LOAD 8468. The Red Shift light gees on. and to Escane is 
your task. 


BREAK 
Preschoolers :n particular nave a oreditection for this Key, along with the 
Escape kev. Whilst use of Escane i¢ annoying at the wrong moment. Break -€ 
much worse. it certainiv pays to redefine the Break key so that if itchy 
fingers jump tn you have a better chance te.recaver. Greak is kev 16. anc OL 
is the command to recover # crogram after use of Break: . | 
*KEYVIGOLOIM <= this 1s under tne @.1 05 - apoarent!y toa rear under 
the series 1 QS¢,. you nave to do a Control Break ta break out. Even wets ine 
Breaw Key sa aefined, pressina it twice aquickiy wis? stsi' cloober the macnine. 


DEFINED KEYS = INKEY. | 

Gn the welcome tase, the sketch oroagram defines some of these Keres to chance 

the colours. tnen vou have ¢inished with this program, the Keys are ¢t:°: 
defined so that if you wish to start work on another program, you ave te set 

up your favour te definitions again, Inetead of defining the keys if the Snetch 
orogram. the orogrammer couid have used INKEY to check which key mad Geer: 
pressed. then taxer action accordingly. This would have teft previcve! vy-made 
definitions undisturbed. | 


7 WHY USE THEM? | 

1. To cut dowr tome spent tyoing in tne same phrase or command curing develon~ 
ment of a procram: “The BBC Microcomouter Users Groun of NZ’ i¢ a 5% to 
type im every few tines: oressing one Key with th:s onrase inside it 1s mucn 
Quicker. Doing a lot of drawing? #KEYSMOVE =—- #KEY4: DRAW tc save time. 

2. Of course vou ane SAVE:ne vour grograms twice anc eri¢tying tnem, even if 
duplicate covies are on the same tane. why tyoe in the whole SAVE aseocedure 
twice, with a wait between each save? The computer has 4 buéter, co :t 
can remember if you give it a command before it hat finished execut:ng 4 
previous command. #KEVISQVE" name“ iMiM . Prese 43 tw: te, with vour 
cassette ready to record. and qo and make that cup of coffee while tre 
machine does all your work tw.ce! (or more? in succession. | 

2. By all means use these «sys instead of biack snes for a came. Warning: 
peopie enthousiastical!y hitting #9 so shift a frog acress the road tm &@ 
hurry are likely to hit Break — TWICE , 

4. Mummy, I want green letters ... Mummy, I want purple ietters ... 
and, of course, he wants them to be big ietters, which :¢ the g-colour 
mode §. *KEY3{UMO.5:V.1797.3.2.0.6.6i1M and *KEY4/UNG.5:V.19.3.5.6,8,8iM 
and so on. Let the child remember which is which. 


WHAT DOES THIS KEY DO ? 
One way to find out is by typing in AUTO then oressing the key to get a listing 
of its definition. Of course, if you have a program already in the machine that 
you do not want to corrupt, then you will enter AUTO5608 instead. Or some 
safely high line number that the program does not reach to. 


i@ 

Or, you can slip a card of piece of paper under the clear perspex ¢?) strip 
that is above the red Keys, with each definition written in the right place 
Computer cards are just the right length for the 9 keys, and stick up beyond 
the perspex so you can pencil in a al definitions easily. we 

ENTERING DEFINITIONS: 

You can enter each definition manually, in immediate mode. or, as the User 
Guide suggests. write a program, save it to cassette (you’ve got disc?) and 
CHAIN the cassette each time you turn the machine on. Below is a documented 
program to define the Keys ~ the jieting also prints to screen how the keys 
have been defined, in case you’ve forgotten. If vou are using the cassette bug 
fix, this can be incorporated in the same program. Note that after running this 
grogram you should tyoe in NEW before you Start work on another program es 
You need not use these definitions, but substitute your own wherever ou like 


£@ MODES 

26 PRINT*Defining function keys" 

3@ 

48 

©@ PRINT “Reset ali function Kevs “#8 to ‘Fi8%" 
6B *kKEY@ 
7@ #KEYI 
Ba #KEVZ 
08 *KEY3 

188 #KEV4 
119 *#KEYS 
326 *#KEYS 
129 #*#KEY? 
148 #kKEvR 
156 «KES? 
1d@ *KETIG 

178 

i8@ PRINT’" ‘4° pretty list in page mode" 

198 #KEY@ UCL. OML.G7IMMO.SIMINL.IMIO 

268 : : 

216 PRINT’" “#1 jist soecified range of lines’ 

228 4KEYL:UCL.INL.O@:MMO.SIMLIST 

238 

S40 PRINT’” °42.3.4,5' to redet:ne *KEY2,3,49.5" 

250 *#KEY2*KEY2 | 

268 *#KEYS*4KEYS | 

278 #KEYG#KEYS 

288 #*#KEYS*KEYS 

278 | 

306 PRINT’" ‘46° turn cassette motor off" 

316 #KEY6! UeMOTORG:M 

328 . 

330 PRINT’" ‘€7’ turn cassette motor on” 

348 *#KEY7; UsMOTOR! | 

350 | 

36@ PRINT’* ’48’ joad next program from cassette" 

378 *#KEY8;ULO.""iM | 


388 : 
39@ PRINT’" ‘°49° run current program” 


480 #KEY9; URUN:M 


PRINT’® °416° make ‘“EREAK* kav ‘safe’? 
B sKEYIGSLEIM 


SRINT° "REYS mow defined" 
END 





Is 


Extended Character set for C.ITOH S8i@4 printer 


128 &8a@ _ 12? &81 136 &82 o i131 &83 » 
i3s2 &84 @ 133 &85 gg 134 &&6 @ 135 487 § 
136 &88 | 137 &&F | 138 &84 |] 137 &86 9 
146 &&C @j 141 &8D §j 142 &SE @ 143 &8F + 
144 &£96 + 145 &91 + 146 &#2 4 147 &?3 +} 
148 & 4 — 149? &?5 — 158 &Fé | i511 &F7 | 
152 &98 ¢- 153 &?F 4 154 &A - 155 &°B + 
ISé &FC -¢ 1S? &?D 5 i58 &FVE * iS? &SF ~ 
166 &AO « 1461 &Al F 162 &H&2 ¥ 1463 &A3 $ 
164 &AG € 1465 &AS 4 164 &AS 1 147 &A? 8 
168 &AB s 146? &AS K 178 &AA x 171 &AB H 
l72 &AC ¥Y iv”s &AD § 174 &AE © 175 &AF T 
176 &Be Pp 177 &Bl «¢ 173 &B2 T i7? &B3 wv 
i8@ &B4 ¢ 181 &B5 x 182 &Bé ¥ 183 &B? w 
184 &BR a 185 &BS F 186 &BA = i37 &BB A 
186 &BC 9 189 &&D © 1°76 &BE 4 ifl &BF * 
L?2 &CB ft ifs &Cl + ig4 &C2 ¢ 1?S &C3 4 
i?é6 &€4 + i?? &CS * 1?& &Cé 2? iv? &C? & 
290 &CS % 2Oi &CP : 2402 &CA 8 263 &CB = 
264 4&CC .. 265 &CD % 266 &CE 4 2er &Cr 9 
298 &DB 1 zB? &Dl 2 Z21¢ &D2 3 211i &D3 4 
2zi2 &D4 5 zi3 &DS & 214 &Pé 7 215 &b? * 
216 &DS ? ei? &DF? ° 218 &DA } zi? &DB + 
2280 &D0C ~ 2271 &DD : 222 &DE * 22a &DF “ 
224 &E8 = 225 &Ei & Z2e6 &ES + 22/ &ES 4 
223 &E4 4 22? &ES & 230 &ES F 231 &E7 F 
232 &EB + 233 &E? 234 &EA + 235 &EB 
236 &EC @ Z2a/7 &ED a 238 &EE / 2a? &EF *. 
24¢ &FB X 241 &FL 242 &F2 |: 243 &F3 = 
244 &F4A4 = 245 &FS +I 296 &FS |. 247 &F? + 
248 &FS 249 &F? 256 &FA 291 &FB 
2uz &FC . 2900 &FD 234 &FE zag &FF 
7 SE, Oe ene 


a a ele 


RSEKR 


TAPE TIP: 
After having some loading and saving difficulties with my last batch of tapes, I 


found the following cure: apply some pressure to the tape’s felt pressure pad 
so that it pushes the tape against the heads properly. Mine al! suffered from 


a lack of tension in the small metal spring which carries out this function. 
A.A, 


tape == 


Cl Cal ™ 


“Felt pad” 


Wrong Right 


16 
SKETCH LOGIC REWRITTEN 


G.C.F, 


MOTIVATION: 

All the programs on the “WELCOME’ tape are designed to run on a Model A, which 
has only 16k RAM. This.imposes restrictions on the graphics modes available. 
The Sketch program runs in Mode 5 which means that the vertical lines are twice 
as thick as horizontal lines, and I decided to change this to Mode i. There 
were also some other enhancements | wanted to make, which meant looking at the 
existing code, ... and understanding it ! 


EXISTING LOGIC 

] found some incredibly complex logic to implement the fairly simple functions. 
It was riddied with GOTOs, and redefined the User-definable Keys unnecessarily, 
This jogic cried out for rewriting - besides whith, what did: 

KEY 8 IIA do ? Answer: see p, 142 of the Users Guides i! }A=CHR$(12B41) 
And it was onty when 1 had rewritten the logic from first principles, that I 
fully understood how they did things ' 

I have only rewritten that part of the logic whith is required for its main 
function of drawing pictures, which fs contained in lines 118 - 538 and 1166 - 
1297 . Although, to be complete, the program needs to display a title and the 
instructions. Nevertheiess, the listing given here works in itself. 


CHANGES 
The rewritten logic:- 
1. Reduces the number of statements from 57 to 41, 
2. Boes not use GOTOs. 
3. Does not redefine the User-definable Keys. 
4. Allows diagonal lines to be drawn by helding down two cursor Keys at once. 
3. Is more easily understood in terms of what it actually does; so that 
enhancements can be made with less chance of unwanted side effects, 


6. Stitl allows the User to do exactiy what s/he did before, and in the same 
ways 


SSO DG SRDS SRS EHE_ LAS TYR_ INS EM INS Ss 
WHAT OTHERS ARE DOING: 

Report from one member, who converted the C.]TOH screen dump 4rom the February 

issue to run on his IBM printer (Epson MX86'). He claims it took about 26 

minutes to run! 


Another is thinking of producing a WP which would print in Chinese characters, 
perhaps involving User-defineable characters. He expects this to be a project 
taking several years. 


On graphics, one potential customer asked the Beeb salesman why the Beeb didn’t 
have the graphics characters printed on the Keys {ike the ATARI does! The 
response was that the Beeb didn’t have enough Keys to put them ali on! 


Two members report that they have imported their own Beebs for $1188 including 
Sates Tax. 


Another has his Beeb connected to a CP/M system, but it is not yet a complete 
implementation. 


The Users Group President prefers half a Beeb to a whote Spectrum. (He part-owns 
one with the Secretary, who in term also has a half-share in a Microbee!) 


i? 


16 REM “Sketch*® logic rewritten 

20 REM G.C.F. 1£7-APR-83 

36 MODE 1 

46 YDU2Z3;11,6;95;6;8 

58 YDULF, 3,456; 

489 VOUI9,2,3308: 

7@ Cy¥=1 

88 XK=639 

FB YA=511 
168 REPEAT 

118 IF INKEY(-58) AND Y4¢1828 THEN Yee 1X44 
128 IF INKEY<-42) AND Y4>3 THEN YYe "4-4 
1438 0 ©61F INKEY(-26) AND X43 THEN X4exi4-4 
1468 IF INKEY<-122) AND X441276 THEN X4=XX%+4 
158 GCOL 4,4 

148 FOR }4=1 TO 2 

i7B MOVE X% ,Y%-12 


i188 DRAW X4,Y%H12 
198 MOVE X%-12,Y% 
208 DRAW X4+12,Y% 


218 NEXT IA 

228 IF INKEY¢+33) THEN CH=1 

236 TF INKEY¢-114) THEN C4=2 

248 TF JNKEY¢-115) THEN Cx%=3 

258 IF INKEY¢-21) THEN CA=-1 

269 TF iINKEY¢-£26) THEN Cx%=8 

276 IF CAd-1 THEN GCOL 8,CArPLOT 69 ,x%,Y% 
288 UNTIL FALSE 


PRIME CnHALLENGE 
G.C.F. 


PROBLEM: 
Write a program to jist all prime numbers less than 18,868 in BASIC “without 


using Peeks & Pokes), and see if you can cet it done in less than 235.4 seconds 
Cabout 3.5 minutes). Meaningful variable names are not required !' You may 
assume that the first three primes are 2, 3, & 5, and the use of the Built-in 
clock ¢TIME) to time the program’s run is permissable. 

More enterprising Peaders may write a machine code program to do it, but I am 
more interested in the methods used, and their implementations in BASIC 


BACKGROUND: 

There are several different methods that can be used and it would be interesting 
to compare their tun times, 

One particular method was covered in “BYTE” magazine (Jan ’°83) in an article 
titled "Eratosthenes Revisited: Once More through the Sieve". Comparative 
timings are given for many machines and several languages (eg Apple II, using 
integer BASIC - 38 minutes) aiso the checked numbers up to 16,361 (BBC BASIC 
Hists these in ? minutes). 


SOLUTIONS: 
If anyone can devise a program which is either significantly faster (Saplus) 


or more elegant than the solution] have, please send it in for publication. 


is 


WoW. 


Don’t despair if you think that a printer is beyond the reach of your budget, 
You may have dreamt of daisy wheels, dot matrices and pen plotters a}] singing 
and dancing around your Beeb as they came to take you away.to debtors prison, 
Forget all that. You can have your own printer at a price that is hard to 
beat, For less than $5@ all up you can have your very own plain paper 
printer. Jt has some limitations, mind you, but it is a printer, and at that 
price, well...... § Now read on, 


Fhe march of new technological development teaves in its wake a trail of 
obsolete equipment, This is usually still in good working order, not realiy 
worn out, It merely lacks the facilities which are required for today. 

Take the Né2PO teleprinter for example. The cider, mechanical Creed models 
have been superceded by Qlivetti and Sagem machines which incorporate some of 
the frurt of the modern microelectronic age. These latter incorporate such 
enhanced features that there is no longer a piace for the Creed in the Telex 
customers offices. Ex Past Office Creed model 54 teleprinters are available 
at $18 each, and it is these machines that this printer project is about. 


You should be aware, from the outset, that the teleprinter has its limitations. 
The main ones arei- size and weight, noise, slowness, limitations of the 
character set and maintenance difficulties. The size, weight and noise mean 
stmpty that you put it tn the garage and connect it via a cable to the BBC in 
your lounge. 


The printing speed is 5@ baud, which translates to about 4 characters per 
second at full steam, However, the software routine, even in machine code, 
takes a few milliseconds to sort out and transtate each character, $0 the 
speed actually achieved is a bit tess than this. 


The character set is limited to upper case letters, numerals, and a reasonably 
sparse set of punctuation and mathematical symbols. This is not too much of 
a problem in most applications, but it does mean that a fair bit of handwork 
Fs required to mark up jistings. Also you need to watch for traps where both 
lower and upper case letters come out in upper case, 


The whole project involves three main steps:- 

1, Obtain your teleprinter., 

2. Construct an interface to boost the signal from the computer. 

3. Load a software routine that will cause the required codes to be sent, 
This month we look at how you get your teieprinter, 


Surplus teleprinters are normally only sotd by the Post Gffice ta its own staff 
members, but the Users Group, however, has a fairly strong contingent of these. 
1# you send an S.A.E. to The BBC Microcomputer Users Group of NZ, Dept TX, 

PO Box 9592, Wetkington, together with $18 ,we wilt send you full detaits of 
when and where to uplift your machine (note that because of the size and weight 
the machine must be collected from Wellington by the purchaser}. 


You can be pretty sure that the machine you get was working quite happily up 
to the time it was taken out of service. There is, however, no guarantee, 
Given either by the Users Group or by the Post Office. The first thing to do 
is plug the power cord from the teleprinter into the 3-pin socket on the back 
of the control unit. Next plug the multiway cable from the teleprinter into 


i> 


the multiway socket on the back of the controi unit. Finally plug the 

power cord from the control unit inte the mains and switch on. Press the 
LOCAL button on the control unit, and you should now have an electric type- 
writer, Pounding a tew Keys should print up in red on the paper (the machine 
prints red for transmitted text and black for received text), if you are out 
of roll paper or ribbon then refer to the Post Office’s “Supplement to the 
Telex Directory’, a smal) orange booklet which includes a chapter on material 
supplies and how to obtain them from Post Office Supply Branches, 


If your teteprinter does not operate as it should then you should try to make 
the acquaintante of a Post Office telegraph technician. de recommend that 
you don’t meddie with the innards of the beast unless you Know exactly what 
you are doing, and even then only make one adjustment at a time. Don’t open 
the case while the machine is still plugged into the mains, 


Next month we will !ook at the interface that you will need to build, and also 
the software driver. 


TEC ice er FO HANDICAPPED F <= 
Neil SCOTT 


We have been asked to pass the following on to our members, by The N.2Z.Computer 
Society, Wellington Branch. [It may be of interest to some of you - we had a 
program in a recent issue of our newsletter to increase the size of text on a 
screen, written with partially-sighted people in mind. ‘¢Ed} 


A new "Technical Aids" trust has been established specifically to assist with 
the provision of technica] aids for handicapped peopie. The trust provides 2 
framework within which a wide range of volunteer sKills can be coordinated. 
Because computer techniques play a major part in the provision of these aids, 
the Computer Soctety has a member on the board of trustees. As well, several 
other trustees are also members of the Society. 


There is a large amount of computer hardware that could be adapted for use by 
the handicapped but it will need a great deal of specially written software. 
some of this is reasonably straightforward, but as well, there are problems that 
are being tackled by some of the foremost researchers in the artificial 
intelligence community. One of the most exciting aspects of working tn this 
area is that it provides a common ground for exploration by members of vastly 
different disciplines. For example, we have linguists, programmers, therapists 
and engineers a1] working together to find a salution te one particular communi- 
cation problem, 


So if any of you would like to become involved in some aspect of providing 
technical aids for the handicapped in either hardware or software, please 
contact Neil Scott or Paul Bryant at Wellington Polytechnic (ph. 858-55%or 
Private Bag, Wellington}, or 8i1) Williams at the National Office of the 
Computer Society (ph.?27-421 or P.0.Box 2788, Weltington), 


There will be a short familiarisation course offered in dune as an introduction 
to this field, for those interested. It will look at: 
The special needs of the handicapped; 
Familiarisation with the-equipment & programmes that are being used; 
Definition of particular problems that need to be investigated; 
Possible hardware & software solutions to the defined problems. 


ze 


Course details: 4 Monday evenings: June §3,28,27,.& July 4 
Time: 5.38pm - &.38pm 
Venuer Room 3026, Wellington Polytechnic 
Cost: $12.68 


POLAR PLOTTING 
G.C.F. 


PREAMBLE 

The first draft of this article and program was solely concerned with demonstra- 
ting the techniques of polar plotting, and to provide a couple of useful 
PROCedures to do this. But PROCs need a “mainiine® to make them into a 

program that can be run to actually show what Polar Plotting can do! And that 
was where the trouble started. People who saw the program complained that it 
was NOT “USER FRIENDLY’ - a CRUEL and UNOERHAND blow to my PROFESSIONAL PRIDE. 
(Professionsal pride: a weakness of people who, by claiming especial competence 
in a particular skill, feel compelled to remedy any justified criticism. For a 
professional Analyst or Programmer, to be accused of not being USER Friendly is 
like @ priest being accused of not kheing respectful to his GOD.) 

I hope the resutting program goes some way towards dispelling such criticism, 
and i beg forgiveness ... 


Although the main purpose of this article is tc show how to do Polar Plotting on 
the Beeb, there are some additional coments on USER FRIENDLINESS, and BASIC 
technicalities. (What about the icebergs? -£d)> 


INTRODUCTION 

Polar Plotting can be used both for fun graphics, and also engineering apptica~- 
tions, Sssides being useful in the educational context of teaching differences 
between Polar and Cartesian coordinate systems. 

two ditferent PROCs are given here. The first will simpiy give an outline curve 
and the second provides a ¢#ilied-in shape with random colours, 

The program itsel# not only shows how the PROCS can be used, but also altows you 
to easily experiment with different functions, and to show how small modifica- 
tions change the generated pattern. 


MATHEMATICS 

A ’Polar Plot’ is the name given to a graph drawn using the ‘“R’ “radius? and’@’ 

(angle) system instead of the more common rectangular “X’ and ‘Y’ cogrdinates. 

In generat, the radius (R) is expressed as a function of the angie@) eg: 
R=C1tcos(O3/2 

Polar Plotting is often preferred when it is easier, of more meaningful, to 

define the equation for the graph in terms of R,@ rather than X,Y terms. 


INSTRUCT] ONS 
(a) The first thing the program requires to Know is which type of polar plot 
the User wants. : 


(b> It then asks for the “Radial Function’ - type in one of the examples given 
hetow, or your.own choice. Note that, next time around, the previous 
function is redisplayed, so you can reuse parts of it to construct the next 
one, using the cursor Keys. 

Cc) Thirdly, a prompt appears after the pattern has been completed, asking if 
you want another plot.- A “Y’ ‘answer returns to step (6b). 

Cd) A reply of “°N’ to the above prompt teads to another prompt, which gives you 
a chance to end the program or return to step (a). 
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(#) At any stage, even while plotting, pressing <ESCAPE> wilt return you to ¢a) 
{#} Any errors detected by the system will be displayed and the program will 
return you to atep (b)., 


USER FRIENDLINESS 

J do not claim that the program is as “USER FRIENDLY’ as could be possible, but 

it does have some of the necessary featuresi- 

(a) Use js made of the “ON ERROR’ and ‘REPORT’ features to heip USERS determine 
why the program did not like the radial function entered. 

(b>) The ESCAPE Key will abandon any plot without waiting for its completion, 
whilst still remaining in the program. This feature is useful if you 
selected the wrong type of plot, or don’t like the current radial function, 

Cc) The current or last radial function is afways displayed. This is especially 
useful in error situations, or when you are investigating ones which are 
very simitar, Also, it is useful to have a reminder of how the pattern was 
generated. 

(d) A graphics window is set up to ensure that the radtal function expression 
is never overwritten by the pattern, 


USER NOTES 

(2) To end the program either follow instructions and reply ‘“Y¥% to the prompt 
“End Program (Y/N) ?’ or press <(BREAK> 

(b) As the keyboard does not have the Greek letter ’O°, the program uses “A’ 
instead. 

{c} The program supplies its own scaling factor (488) so that ft is best to 
ensure that the maximum yalue of the radial function does not exceed one. 

€d) Negative values of “R’ have an obvious effect ! 


DESIGN NOTES 

Ca) designed to be “USER FRIENDLY’ as above. 

(b) PROCs are “self-contained’ and can be incorporated easily into other - 
programs. 

Cc) The PROCs are also well-behaved, and restore the graphics window and origin 
to the default values on exit. 

Cd} The PROCS aliow the programmer/USER to think in terms of R&@ al though they 
actually PLOT ¢or DRAW) in terms of x&y coordinates; using the transforma- 
tion x=Rcos? 
and y=Reind 


CODING NOTES 

(a) The radial functlon to be plotted is passed as a string variable parameter 
CF$) from the mainiine to the plotting PROCedure. 

(b) Whenever variebles Jn a PROC have no, or possibly different, signiticance 
elsewhere, they have been declared LOCAL to prevent unwanted side-effects. 

Cc) The number of points plotted, and the range of angle used are set by the 
variables “O° and ’#’, which are in cadlans rather than degrees, 
(2 radians = 3468 degrees?) 

id} Consider the use of the EVAL feature in this program - it would have been 
rather more complicated without tt, Care should be taken, however, in its 
USS aS @rror messages generated by it can be more misieading than when 
expressions are apect¢ied directly. eg compare: 

10 ReEVAL<"COS(A) 4*> 

and 16 ReCOS‘A) 4 

(Ce) If the oraphics origin is radefined (VDU29) and a graphics window is to be 
set up (VDUZ4) then they must be specified in this order. 
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Cf) The above may help explain the negative values used, in the PROCs, for the 
VDU24 arguments ! 

(9) VDU26 cancels the effects of both VDU24 and VDU29, which was found most 
necessary in the version which incorporated a screen dump ! 
(What it did to my poor printer’s ribbon ! Sucked it dry with long black 
Vines. - ED.) 

{h> DEF FRLexit(A#) has NOT been included in the listing - see p.22 of the April 
issue to copy it from - this newsletter is full up! 


SAMPLE FUNCTIONS TO TRY: 


1. SIN‘Ad 6. ABS(SING 244) +SINC3#A})/2 

Z. SINGAtPI/4) 7. ABSCSINGZ#AD+SS INC 3A) 74 

3. ABSCSINCA)> G. ABSCSIN(AD+SING 2A) )/2 

4. Ci4+SIN(A))/2 7. ABSCCOS¢28A))/(ABS(COS(C 449A) 41> 
J» RNOC3)/3 18. ABSSCOS(A SING SHA) > 


18 REM Program to demonstrate Polar Plots 
26 MODE 1 
38 error4=FALSE 
49 Fe="* 
58 GN ERROR REPORT: IF ERR@® 17 THEN errord=FALSE ELSE error4=TRUE: PRINT’ ““*Please 
try again" 
68 IF ERR=2é THEN PRINT’"Onty variable is “A’,"“"which is the angle in radians" 
78 REPEAT 
86 IF NOT error’ THEN INPUT 77") - Outline"’"2 - Filled"’ ,R% 
98 REPEAT 
186 PRINT TABCS ,o1>SPCCLENCFS$) > 
118 PRINT’’*Radius Function"’" "Fe 
126 INPUT F% 
138 CLS 
148 PRINT TABCE,319FS; 
150 IF R¥=i THEN PROC_polar_ptot_1(F$) ELSE PROC_polar_plot_2(F#) 
146 exitZeNOT FRLexit¢"Next plot") 
i178 UNTIL exi ty 
188 error4=FALSE 
Se . 
ase donee Crean renaseratree 374 DEF PROC_polar.ptot.2(F%> . 
318 END 388 REM Pilot filied in curve using random colours 
226 396 LOCAL A,D,H,R 
230 DEF PROC_polar..ptotii (Fs) 488 HozePl 
248 REM Plot outtine curve only 418 D=H/S86 
256 LOCAL A,D,H,R 428 VOU 29 ,46495512; 
268 HePePl 438 VDU 24,-486 3-486 5489 ; 488; 
278 D=H/See 448 FOR A-8 TO H STEP D 
288 VDU 29,646;512; 45@ MOVE 6,8 
298 VDU 24-480 ;-488 ;486 ; 488; 468 = GCOL _6,RNDCS) 
38@ FOR A=@ TO H STEP D ace, (RAB eevee eee? 
328 PLOT 69, R®COS(A) ,R¥SIN(A)- 476 NEXT. A 
33@ NEXT A 308 YOU2S 
348 YDU26 516 ENOPROC 
358 ENDPROC 526 


368 


538: DEF. .-FNLexi t (As) 
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FI “THI R 
The Editor 


WHAT TO WRITE? 

Anything related to the Beeb, It does not have to be a 20-page serial on some 

‘obscure’ aspect of the Beeb. We are trying to caver a wide range of members’ 

interests and abilities, and this is reflected in the varying approaches 

taken to similar topics in different issues. A lot of you are oniy learning to 
program on the Beeb; if you have come across some curiosity, write and tell us, 
or if it is a stumbling block, ask for help - we will try to find someone with 

the Knowledge necessary to write up your problem - just give plenty of details 

on what you were trying to do, and how you were trying to do it. 


Hardware projects are also interesting to a lot of members, so please tell us 
what you are doing. 


1 CAN’T WRITE 

Then type? It doesn’t matter what your ability in writing is like, 56 tong as 
you express yoursel# clearly. Take time to use sub-headings for instance, or 

we can go through your article or letter and rewrite it a little if it seems 
needed to get your message across. Material can be submitted in legible hand- 
writing, typed, or on cassette (') using perhaps the mini text-editor from 
BEEBUG in this issue, or as a pfagram consisting entirely af PRINT statements. 
We will check any programs sent in, to make sure there aren’t any obvious bugs, 
before printing them, and generally try to maintain a high standard of presenta- 
tion en your behalf. If you think it necessary, send us a draft of your articie 
for comment first. 


HOW WE EDIT 

The Editor has a core of sub-editors to help fil) in her huge gaps of Knowledge. 
Artictes dealing with hardware, for instance, go to Warren, who has written up 
several items for us. He also has been having fun (7) trying out games sent in. 
Gavin checks the programming and responds to queries on BASIC. There its also 2 
telephone which gets used frequently to find out all sorts of tnippets. 


At times then, the editor feels more that her role is to program the printer! 
That can be fun tog. Somewhere in this issue is a list of the Greek character 
set that comes with our printer. If you want to use any of these characters, 
they are readily available, Add a note with your article ta this effect when 
you write in. Furthermore, 1 can download my own special characters to the 
printer’s RAM Call 3K of it) and print using them. Have a look at the April 
issue to see lots of these characters - 4 different posturing people on p.é; 
the treble clefs on p.? are two characters stacked on top of each other (with 
an alteration to the gap between Jines so that they Join without showing. 

1 can also do screen dumps - see Area of Polygon articie for hex-agon, Kiwi-gon, 
and the dr-agon on the cover. So was the elephant. A different example of 
printer-programming is on p.3 - the memory map, 


1# you want a diagram or illustration to your literary effort, either draw it 
im a seproducible form, or onto the screen for me to dump off, or in the case 
of special characters, send in the character on graph paper or a grid for me 
to work off. Multiples of 8x8 squares as used by the Beeb are fine, but don’t 
tet thia restrict you. 
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TECHNICAL BOOKS LTO 
Are offering a 184% discount to our members when purchasing computer books from 
them. They are at 222 Lambton Quay. Please present your membership card when 
asking for this discount, 

TAPES 
We again have some stock of C-i8 leaderless tapes. 
They are avariable in multiples of 28 for $24.60; plus $2.88 p&p if required, 


PNM NAPSEPS FPS EPS PN PS ASN PSN FPS PSPS ASAE PSPS ASF AS 
CLASSIFIED ADS; 

Classified Ads are free to individual members of the Users Group. 

For cassette leads for motor cantrol (ie a 7-pin DIN plug connected to three 

Jacks), either phone Kevin Waota 845-243, or write to him c/- P.0,Box 9592,btigtn. 

They are available to individual members for $5.68 plus S@cents p&p. 


ANPY PAP NPY PL FARM NEN PH PNP PPE PNP NPL PPh ess 
HSER GROUP MEETINGS 

AUCKLAND: - meets 2nd hlednesday of the month, 7.38 pm; VHF Clubrooms, Hazel Aue 
Mt Roskill. Ph. Dave 683-394 or Kerry 695-355 for more details. 

WELLINGTON:- meets fourth Thursday of the month, 7.38 pm; at the Correspondence 
School, ist floor, Staffroom. CONTACT: Warren 787-865 or Anton 
2846-289 if further details are required. 

OTHER CENTRES:- let us Know, so we can publish retevant details here. 


i oe a oe od oe a al We ol ol i ls on ol olin 
The NEWSLETTER: 
NEXT MONTH: - Prime numbers 
Numberbet ~ colours and counting for preschoolers 
Lissajous 
More on the teleprinter conversion 
What’s on the Menu? 
aces and more aie 
CGNTRIBUTIONS:- are most welcome, in all shapes and sizes, and on any 
related topic. Program listings should be submitted on cassette, 
to avoid any copying errors. Include on paper an explanation of 
tt,etc, Please tnctude stamps for return postage of your tape, 
Please SAVE your tape program twice - the second time at 
at 308 bauG tf possible, and verify them, 
DEADLINES :- Material for a particular issue should be with us by the Jast 
day of the month prior to the month of publication. 
ADVERTISING:- Rates are $20.62 per half page. 


Copyright 1983 The BBC Microcomputer Users Group of NZ| who publish this 
néwsbetter monthiy. it is available to financial members, 


PHPSH PEP PHN ASU PHAN PSH PRPS PS PRPS PSN RPS PSPS ESS 
MEMBERSHIP: 

Membership of the Group is on payment of an annual subscription from April to 

March. For the 1983/4 year it has been set at $28.08, plus there is a yoining 

fee of $5.88 for new members. New members will be sent all back issues of the 

monthiy newsletter, which first came out in January 1983, 

Local meeting groups can add an extra levy to cover room etc costs; for both 

Auckiand and Wellington, this has been set at $5.08. 


THE BBC MICROCOMPUTER USERS BROUP OF Nz 
P,0.B0X 9592, 
WELLINGTON, 


